home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / xlisp / xldmem.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  15.7 KB  |  441 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:        xldmem.h
  5. * RCS:        $Header: xldmem.h,v 1.8 91/03/14 03:37:02 mayer Exp $
  6. * Description:    dynamic memory definitions
  7. * Author:    David Michael Betz; Niels Mayer
  8. * Created:    
  9. * Modified:     Fri Oct  4 04:17:05 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:    C
  11. * Package:    N/A
  12. * Status:    X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42.  
  43.  
  44. /* small fixnum range */
  45. #define SFIXMIN        (-128)
  46. #define SFIXMAX        255
  47. #define SFIXSIZE    384
  48.  
  49. /* character range */
  50. #define CHARMIN        0
  51. #define CHARMAX        255
  52. #define CHARSIZE    256
  53.  
  54. /* new node access macros */
  55. #define ntype(x)    ((x)->n_type)
  56.  
  57. /* cons access macros */
  58. #define car(x)        ((x)->n_car)
  59. #define cdr(x)        ((x)->n_cdr)
  60. #define rplaca(x,y)    ((x)->n_car = (y))
  61. #define rplacd(x,y)    ((x)->n_cdr = (y))
  62.  
  63. /* symbol access macros */
  64. #define getvalue(x)     ((x)->n_vdata[0])
  65. #define setvalue(x,v)     ((x)->n_vdata[0] = (v))
  66. #define getfunction(x)     ((x)->n_vdata[1])
  67. #define setfunction(x,v) ((x)->n_vdata[1] = (v))
  68. #define getplist(x)     ((x)->n_vdata[2])
  69. #define setplist(x,v)     ((x)->n_vdata[2] = (v))
  70. #define getpname(x)     ((x)->n_vdata[3])
  71. #define setpname(x,v)     ((x)->n_vdata[3] = (v))
  72. #define SYMSIZE        4
  73.  
  74. /* closure access macros */
  75. #define getname(x)    ((x)->n_vdata[0])
  76. #define setname(x,v)    ((x)->n_vdata[0] = (v))
  77. #define gettype(x)    ((x)->n_vdata[1])
  78. #define settype(x,v)    ((x)->n_vdata[1] = (v))
  79. #define getargs(x)    ((x)->n_vdata[2])
  80. #define setargs(x,v)    ((x)->n_vdata[2] = (v))
  81. #define getoargs(x)    ((x)->n_vdata[3])
  82. #define setoargs(x,v)    ((x)->n_vdata[3] = (v))
  83. #define getrest(x)    ((x)->n_vdata[4])
  84. #define setrest(x,v)    ((x)->n_vdata[4] = (v))
  85. #define getkargs(x)    ((x)->n_vdata[5])
  86. #define setkargs(x,v)    ((x)->n_vdata[5] = (v))
  87. #define getaargs(x)    ((x)->n_vdata[6])
  88. #define setaargs(x,v)    ((x)->n_vdata[6] = (v))
  89. #define getbody(x)    ((x)->n_vdata[7])
  90. #define setbody(x,v)    ((x)->n_vdata[7] = (v))
  91. #ifdef WINTERP            /* note: changed getenv()-->getenvt() due to name conflict with stdlib.h:getenv() */
  92. #define getenvt(x)    ((x)->n_vdata[8])
  93. #else
  94. #define getenv(x)    ((x)->n_vdata[8])
  95. #endif                /* WINTERP */
  96. #define setenv(x,v)    ((x)->n_vdata[8] = (v))
  97. #define getfenv(x)    ((x)->n_vdata[9])
  98. #define setfenv(x,v)    ((x)->n_vdata[9] = (v))
  99. #define getlambda(x)    ((x)->n_vdata[10])
  100. #define setlambda(x,v)    ((x)->n_vdata[10] = (v))
  101. #define CLOSIZE        11
  102.  
  103. /* vector access macros */
  104. #define getsize(x)    ((x)->n_vsize)
  105. #define getelement(x,i)    ((x)->n_vdata[i])
  106. #define setelement(x,i,v) ((x)->n_vdata[i] = (v))
  107.  
  108. /* object access macros */
  109. #define getclass(x)    ((x)->n_vdata[0])
  110. #define getivar(x,i)    ((x)->n_vdata[i+1])
  111. #define setivar(x,i,v)    ((x)->n_vdata[i+1] = (v))
  112.  
  113. /* subr/fsubr access macros */
  114. #define getsubr(x)    ((x)->n_subr)
  115. #define getoffset(x)    ((x)->n_offset)
  116.  
  117. /* fixnum/flonum/char access macros */
  118. #define getfixnum(x)    ((x)->n_fixnum)
  119. #define getflonum(x)    ((x)->n_flonum)
  120. #define getchcode(x)    ((x)->n_chcode)
  121.  
  122. /* string access macros */
  123. #define getstring(x)    ((x)->n_string)
  124. #define getslength(x)    ((x)->n_strlen)
  125.  
  126. /* file stream access macros */
  127. #define getfile(x)    ((x)->n_fp)
  128. #define setfile(x,v)    ((x)->n_fp = (v))
  129. #define getsavech(x)    ((x)->n_savech)
  130. #define setsavech(x,v)    ((x)->n_savech = (v))
  131.  
  132. /* unnamed stream access macros */
  133. #define gethead(x)    ((x)->n_car)
  134. #define sethead(x,v)    ((x)->n_car = (v))
  135. #define gettail(x)    ((x)->n_cdr)
  136. #define settail(x,v)    ((x)->n_cdr = (v))
  137.  
  138. #ifdef WINTERP
  139.  
  140. #include <Xm/Xm.h>
  141.  
  142. /* XLTYPE_XT_RESOURCE access macros */
  143. #define get_xtresource(x)       ((x)->n_xtresource)
  144.  
  145. /* XLTYPE_Pixel access macros */
  146. #define get_pixel(x)           ((x)->n_pixel)
  147.  
  148. /* XLTYPE_Pixmap access macros */
  149. #define get_pixmap(x)           ((x)->n_pixmap)
  150.  
  151. /* XLTYPE_XImage access macros */
  152. #define get_ximage(x)           ((x)->n_ximage)
  153.  
  154. /* XLTYPE_XmString access macros */
  155. #define get_xmstring(x)           ((x)->n_xmstring)
  156.  
  157. /* XLTYPE_XEvent access macros */
  158. #define get_xevent(x)       ((x)->n_xevent)
  159.  
  160. /* XLTYPE_Window access macros */
  161. #define get_window(x)           ((x)->n_window)
  162.  
  163. /* XLTYPE_PIXMAP_REFOBJ access macros */
  164. #define get_pixref_pixmap(x)       ((x)->n_vdata[0])
  165. #define set_pixref_pixmap(x,v)       ((x)->n_vdata[0] = (v))
  166. #define get_pixref_widget(x)       ((x)->n_vdata[1])
  167. #define set_pixref_widget(x,v)       ((x)->n_vdata[1] = (v))
  168. #define get_pixref_resname(x)       ((x)->n_vdata[2])
  169. #define set_pixref_resname(x,v)       ((x)->n_vdata[2] = (v))
  170. #define PIXMAP_REFOBJ_SIZE 3
  171.  
  172. /* XLTYPE_CALLBACKOBJ access macros */
  173. #define get_callback_widget(x)       ((x)->n_vdata[0])
  174. #define set_callback_widget(x,v)   ((x)->n_vdata[0] = (v))
  175. #define get_callback_name(x)       ((char *) getfixnum((x)->n_vdata[1]))
  176. #define set_callback_name(x,v)       ((x)->n_vdata[1] = cvfixnum((FIXTYPE) (v))) /* note that (v) is of type char* */
  177. #define get_callback_proc(x)       ((XtCallbackProc) getfixnum((x)->n_vdata[2]))
  178. #define set_callback_proc(x,v)       ((x)->n_vdata[2] = cvfixnum((FIXTYPE) (v))) /* note that (v) is of type XtCallbackProc */
  179. #define get_callback_closure(x)       ((x)->n_vdata[3])
  180. #define set_callback_closure(x,v)  ((x)->n_vdata[3] = (v))
  181. #define CALLBACKOBJ_SIZE 4
  182.  
  183. /* XLTYPE_TIMEOUTOBJ access macros */
  184. #define get_timeout_closure(x)       ((x)->n_vdata[0])
  185. #define set_timeout_closure(x,v)   ((x)->n_vdata[0] = (v))
  186. #define get_timeout_id(x)       ((XtIntervalId) getfixnum((x)->n_vdata[1]))
  187. #define set_timeout_id(x,v)       ((x)->n_vdata[1] = cvfixnum((FIXTYPE) (v))) /* note that (v) is of type XtIntervalId */
  188. #define TIMEOUTOBJ_SIZE 2
  189.  
  190. /* XLTYPE_EVHANDLEROBJ access macros */
  191. #define get_evhandler_widget(x)       ((x)->n_vdata[0])
  192. #define set_evhandler_widget(x,v)  ((x)->n_vdata[0] = (v))
  193. #define get_evhandler_mask(x)       ((long) getfixnum((x)->n_vdata[1]))
  194. #define set_evhandler_mask(x,v)       ((x)->n_vdata[1] = cvfixnum((FIXTYPE) (v))) /* note that (v) is of type long */
  195. #define get_evhandler_options(x)   ((long) getfixnum((x)->n_vdata[2]))
  196. #define set_evhandler_options(x,v) ((x)->n_vdata[2] = cvfixnum((FIXTYPE) (v))) /* note that (v) is of type long */
  197. #define get_evhandler_closure(x)   ((x)->n_vdata[3])
  198. #define set_evhandler_closure(x,v) ((x)->n_vdata[3] = (v))
  199. #define EVHANDLEROBJ_SIZE 4
  200.  
  201. /* XLTYPE_WIDGETOBJ access macros -- note that all OBJECT operations work
  202.    on this type too. The main difference between this type and OBJECT
  203.    (both of which are implemented as vectors) is that a WIDGETOBJ holds
  204.    a single instance variable which is an immediate pointer to a WidgetID
  205.    (as opposed to having the slot holding a pointer to an FIXNUM representing
  206.    the WidgetID.) This slot may not be marked since it is
  207.    not a LVAL node. Thus, special code exists in xldmem.c to prevent
  208.    such a problem. The reason for going through all this is that we
  209.    need to do a special operation on the widgetID when a WIDGETOBJ gets
  210.    garbage collected (see sweep()). If the widgetID were another node,
  211.    then the object would be considered "free" and may not hold a valid
  212.    widgetID. Yes, this is a hack. Also, having a separate type for WIDGETOBJs
  213.    makes some operations on WIDGETOBJs more efficient... see w_classes.c */
  214. /* #define getclass(x)      ((x)->n_vdata[0]) --> this macro valid for both this and OBJECT */
  215. #define get_widgetobj_widgetID(x)   (Widget) ((x)->n_vdata[1])
  216. #define set_widgetobj_widgetID(x,v) ((x)->n_vdata[1] = (LVAL) (v))
  217. #define WIDGETOBJ_SIZE 1    /* this val represents the number of instance variables
  218.                    in the object. newobject() will actually create a vector
  219.                    of size WIDGETOBJ_SIZE+1 so as to hold the ivar and the
  220.                    class pointer. */
  221.  
  222. /* XLTYPE_XtAccelerators access macros */
  223. #define get_xtaccelerators(x)          ((x)->n_xtaccelerators)
  224.  
  225. /* XLTYPE_XtTranslations access macros */
  226. #define get_xttranslations(x)          ((x)->n_xttranslations)
  227.  
  228. #endif                /* WINTERP */
  229.  
  230. /* node types */
  231. #define FREE    0
  232. #define SUBR    1
  233. #define FSUBR    2
  234. #define CONS    3
  235. #define SYMBOL    4
  236. #define FIXNUM    5
  237. #define FLONUM    6
  238. #define STRING    7
  239. #define OBJECT    8
  240. #define STREAM    9
  241. #define VECTOR    10
  242. #define CLOSURE    11
  243. #define CHAR    12
  244. #define USTREAM    13
  245. #define STRUCT    14
  246.  
  247. #if (defined(UNIX) || defined(WINTERP))
  248. #define XLTYPE_PIPE 15 /* same node representation as STREAM, different ntype used to distinguish between file and pipe because files get fclose()'d on gc, and pipes get pclose()'d */
  249. #endif /* (defined(UNIX) || defined(WINTERP)) */
  250.  
  251. #ifdef WINTERP
  252.  
  253. #define XLTYPE_XtAccelerators        16
  254. #define XLTYPE_XtTranslations        17
  255. #define XLTYPE_XEvent            18
  256. #define XLTYPE_Window            19
  257. #define XLTYPE_Pixel            20
  258. #define XLTYPE_Pixmap            21
  259. #define XLTYPE_XImage            22
  260. #define XLTYPE_XmString            23
  261. #define XLTYPE_XmFontList        24
  262. #define XLTYPE_XT_RESOURCE        25
  263. #define XLTYPE_CALLBACKOBJ        26
  264. #define XLTYPE_TIMEOUTOBJ        27
  265. #define XLTYPE_PIXMAP_REFOBJ        28
  266. #define XLTYPE_WIDGETOBJ        29
  267. #define XLTYPE_EVHANDLEROBJ        30
  268.  
  269. /* XLTYPE_XT_RESOURCE node */
  270. #define n_xtresource           n_info.n_xresource.xr_resource
  271.  
  272. /* XLTYPE_Pixel node */
  273. #define n_pixel               n_info.n_xpixel.xp_pixel
  274.  
  275. /* XLTYPE_Pixmap node */
  276. #define n_pixmap           n_info.n_xpixmap.xp_pixmap
  277.  
  278. /* XLTYPE_XImage node */
  279. #define n_ximage           n_info.n_xximage.xx_ximage
  280.  
  281. /* XLTYPE_XmString node */
  282. #define n_xmstring           n_info.n_xxmstring.xx_xmstring
  283.  
  284. /* XLTYPE_XEvent node */
  285. #define n_xevent           n_info.n_xxevent.xx_xevent
  286.  
  287. /* XLTYPE_Window node */
  288. #define n_window           n_info.n_xwindow.xw_window
  289.  
  290. /* XLTYPE_XtAccelerators node */
  291. #define n_xtaccelerators       n_info.n_xxtaccelerators.xx_xtaccelerators
  292.  
  293. /* XLTYPE_XtTranslations node */
  294. #define n_xttranslations       n_info.n_xxttranslations.xx_xttranslations
  295.  
  296. #endif                /* WINTERP */
  297.  
  298. /* subr/fsubr node */
  299. #define n_subr        n_info.n_xsubr.xs_subr
  300. #define n_offset    n_info.n_xsubr.xs_offset
  301.  
  302. /* cons node */
  303. #define n_car        n_info.n_xcons.xc_car
  304. #define n_cdr        n_info.n_xcons.xc_cdr
  305.  
  306. /* fixnum node */
  307. #define n_fixnum    n_info.n_xfixnum.xf_fixnum
  308.  
  309. /* flonum node */
  310. #define n_flonum    n_info.n_xflonum.xf_flonum
  311. /* character node */
  312. #define n_chcode    n_info.n_xchar.xc_chcode
  313.  
  314. /* string node */
  315. #define n_string    n_info.n_xstring.xs_string
  316. #define n_strlen    n_info.n_xstring.xs_length
  317.  
  318. /* stream node */
  319. #define n_fp        n_info.n_xstream.xs_fp
  320. #define n_savech    n_info.n_xstream.xs_savech
  321.  
  322. /* vector/object node */
  323. #define n_vsize        n_info.n_xvector.xv_size
  324. #define n_vdata        n_info.n_xvector.xv_data
  325.  
  326. /* node structure */
  327. typedef struct node {
  328.   char n_type;            /* type of node */
  329.   char n_flags;            /* flag bits */
  330.   union ninfo {            /* value */
  331.  
  332. #ifdef WINTERP
  333.  
  334.     struct xresource {        /* XLTYPE_XTRESOURCE node */
  335.       struct _Resource_Instance *xr_resource;
  336.     } n_xresource;
  337.     struct xpixel {        /* XLTYPE_Pixel node */
  338.       Pixel xp_pixel;
  339.     } n_xpixel;
  340.     struct xpixmap {        /* XLTYPE_Pixmap node */
  341.       Pixmap xp_pixmap;
  342.     } n_xpixmap;
  343.     struct xximage {        /* XLTYPE_XImage node */
  344.       XImage *xx_ximage;
  345.     } n_xximage;
  346.     struct xxmstring {        /* XLTYPE_XmString node */
  347.       XmString xx_xmstring;
  348.     } n_xxmstring;
  349.     struct xxevent {        /* XLTYPE_XEvent node */
  350.       XEvent *xx_xevent;
  351.     } n_xxevent;
  352.     struct xwindow {        /* XLTYPE_Window node */
  353.       Window xw_window;
  354.     } n_xwindow;
  355.     struct xxtaccelerators {
  356.       XtAccelerators xx_xtaccelerators;    /* XLTYPE_XtAccelerators node */
  357.     } n_xxtaccelerators;
  358.     struct xxttranslations {
  359.       XtTranslations xx_xttranslations;    /* XLTYPE_XtTranslations node */
  360.     } n_xxttranslations;
  361.  
  362. #endif                /* WINTERP */
  363.  
  364.     struct xsubr {        /* subr/fsubr node */
  365.       struct node *(*xs_subr)(); /* function pointer */
  366.       int xs_offset;        /* offset into funtab */
  367.     } n_xsubr;
  368.     struct xcons {        /* cons node */
  369.       struct node *xc_car;    /* the car pointer */
  370.       struct node *xc_cdr;    /* the cdr pointer */
  371.     } n_xcons;
  372.     struct xfixnum {        /* fixnum node */
  373.       FIXTYPE xf_fixnum;    /* fixnum value */
  374.     } n_xfixnum;
  375.     struct xflonum {        /* flonum node */
  376.       FLOTYPE xf_flonum;    /* flonum value */
  377.     } n_xflonum;
  378.     struct xchar {        /* character node */
  379.       int xc_chcode;        /* character code */
  380.     } n_xchar;
  381.     struct xstring {        /* string node */
  382.       int xs_length;        /* string length */
  383.       unsigned char *xs_string;    /* string pointer */
  384.     } n_xstring;
  385.     struct xstream {        /* stream node */
  386.       FILE *xs_fp;        /* the file pointer */
  387.       int xs_savech;        /* lookahead character */
  388.     } n_xstream;
  389.     struct xvector {        /* vector/object/symbol/structure node */
  390.       int xv_size;        /* vector size */
  391.       struct node **xv_data;    /* vector data */
  392.     } n_xvector;
  393.   } n_info;
  394. } *LVAL;
  395.  
  396. /* memory segment structure definition */
  397. typedef struct segment {
  398.     int sg_size;
  399.     struct segment *sg_next;
  400.     struct node sg_nodes[1];
  401. } SEGMENT;
  402.  
  403. /* memory allocation functions */
  404. extern LVAL cons();        /* (cons x y) */
  405. extern LVAL cvsymbol();        /* convert a string to a symbol */
  406. extern LVAL cvstring();        /* convert a string */
  407. extern LVAL cvfile();        /* convert a FILE * to a file */
  408. extern LVAL cvsubr();        /* convert a function to a subr/fsubr */
  409. extern LVAL cvfixnum();        /* convert a fixnum */
  410. extern LVAL cvflonum();        /* convert a flonum */
  411. extern LVAL cvchar();        /* convert a character */
  412.  
  413. #if (defined(UNIX) || defined(WINTERP))
  414. extern LVAL cv_pipe();        /* create a XLTYPE_PIPE */
  415. #endif /* (defined(UNIX) || defined(WINTERP)) */
  416.  
  417. #ifdef WINTERP
  418. extern LVAL cv_xtresource();    /* convert a pointer to struct _Resource_Instance */
  419. extern LVAL cv_pixel();        /* convert a X11 Pixel to XLTYPE_Pixel */
  420. extern LVAL cv_pixmap();    /* create a XLTYPE_Pixmap */
  421. extern LVAL cv_ximage();    /* create a XLTYPE_XImage */
  422. extern LVAL cv_xmstring();    /* create a XLTYPE_XmString */
  423. extern LVAL cv_xevent();    /* create a XLTYPE_XEvent */
  424. extern LVAL cv_window();    /* create a XLTYPE_Window */
  425. extern LVAL cv_xtaccelerators(); /* create a XLTYPE_XtAccelerators */
  426. extern LVAL cv_xttranslations(); /* create a XLTYPE_XtTranslations */
  427. /* WARNING: use cvstring() to make a copy of the string; the string passed to cv_string will get freed by GC later */
  428. extern LVAL cv_string();    /* create a STRING, see WARNING above... */
  429. extern LVAL new_pixrefobj();    /* create a XLTYPE_PIXMAP_REFOBJ */
  430. extern LVAL new_timeoutobj();    /* create a XLTYPE_TIMEOUTOBJ */
  431. extern LVAL new_callbackobj();    /* create a XLTYPE_CALLBACKOBJ */
  432. extern LVAL new_evhandlerobj();    /* create a XLTYPE_EVHANDLEROBJ */
  433. #endif                /* WINTERP */
  434.  
  435. extern LVAL newstring();    /* create a new string */
  436. extern LVAL newvector();    /* create a new vector */
  437. extern LVAL newobject();    /* create a new object */
  438. extern LVAL newclosure();    /* create a new closure */
  439. extern LVAL newustream();    /* create a new unnamed stream */
  440. extern LVAL newstruct();    /* create a new structure */
  441.